home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / msdos / raytrace / pov / gen / lparser3 / spider.ls < prev    next >
Encoding:
Text File  |  1993-12-08  |  1.2 KB  |  40 lines
  1. # --- L-System Parser/Mutator --- Lj Lapre ----------------------------------
  2. 18                    # recursion level
  3. 10                    # basic angle
  4. 80                    # starting thickness
  5. %C                    # axiom
  6. #-------------------------------------- Creature
  7. C=%LABHT
  8. #-------------------------------------- Body
  9. B=[???????zZZZ]
  10. #-------------------------------------- Arms
  11. A=[zf&&&&&&&&&"""[pj>>>>>>>>>S]|[qj<<<<<<<<<S]]
  12. p=Ft+:'p                # left
  13. q=Ft-:'q                # right
  14. j=;"j
  15. #-------------------------------------- Scorpers
  16. S=['''!!r%^^r]
  17. r=[Z?Z?Zu]                # jaw assembly
  18. u=Z[co]!'^::u                # jaw and tooth    
  19. #-------------------------------------- Legs
  20. L=[c">>>>[s]>>>>[s]>>>>[s]>>>[s]>>>>>>[s]>>>[s]>>>>[s]>>>>[s]]
  21. s=+++li+++dccc??""FF            # down legs
  22. l=Ft+:'l                # upper leg
  23. d=FFF'd                    # lower leg
  24. i=;i
  25. #-------------------------------------- Head
  26. H=["">>>>>>>>>&&&&&&??FFFF!![???h][???k]%^^[??k]]
  27. k=[Z?Z?Za]                # jaw assembly
  28. a=Z[co]!'a                # jaw    
  29. o=&&&&&&&&&!!!!!F            # teeth
  30. h=[^^gcccc"Z][^^ecccc"Z]        # eyes
  31. g=z!+z!+z!+z                # left eye
  32. e=z!-z!-z!-z                # right eye
  33. #-------------------------------------- Tail
  34. T=[f---------??""""""mccccF]
  35. m=Ft+;'m                # curl
  36. t=['::c!!!&&[f<<<n]^^^^f>>>n]        # spikes
  37. n=[c{--z++z++z--|--z++z++z}]        # leaf
  38. #-------------------------------------- End
  39. @
  40.